FLASHING IN 4 COLOR 


Here iz а convenient way of making items flash on the ЧАТ 
шізрізу. The method uses a small machine code routine which 
is trigyered by the REST? interrupt Al intervals controlled 
Ly a parameter the routine switches the value in the colour 
control byte al location КЕРЕШ This iz the one which is used 
їо aet up colour register Soin a 4-colour mode Ag a result 
anything which із drawn on the screen using colour "3^ will 
flash (change colour regularly). 


Here is the machine code routine bhat i use -- 











FLASH: РЫН H 
LAY M ЕГО 
SHLD EFU : ро INTERCEPT КОТУ 
ihe H 
КЕЛ 
BREED: їн iz ; FLASH RATE PARAMETER 
REP ON шы o ў WORE TANG REMAINDER VALUE 
ТЕРЕМ MM a MOLAR CHANGE PARAMETER 
WE TASH: ЧЕН PUE 
LX] Ho SFEED р EACH TIME SWITCH IS EXECUTED 
мимо M ; SREED IE ӘПШЕП Та REMAIN 
INX H > IF A CARRY OCCLHRZ IT 15 
вап d i TO SWAP COLOURS IN БЕРУ 
MOV PLÁ 
LL МАНЫ 
INX H | 
LUA EEFFZ ; DIFFER’ IS TAKEN AS THE 
ZRA М ; LOGICAL DIFFERENCE “TWEEN 
zin EERE ; THE ТЫП COLOR CODES 
КОСАВА: FUR PSW 
LXX Н, USA? р NORMAL RST? CONT INLUAT ION 








TIME 





Here із a simple example program using the techniqua. 


io CLEAR 1000 

SO POKE Газы, З: PORE ЖӘЗІ,РЕЕНКФЕКӘРІЗ-і: REM make space 

Шо FÜR ізЕШЕШ Га EOF. READ go PURE lod: NEXT 

ао MOU фа: CüLONG 15 5 L 9 

SO LALLEP 22 КЕМ Activate PLAGE routine 

20 РК REM Lolour register will alternate 15 ~ З 
оз FALL 110,60 Zi: НЕМ Ordinary green blab 

PU FILL 160,60 23: REM Flashing green blob 

cO HATA E 5 З za. ЕГО, БОЙ, Fred, EL 

оо пала соя. Коб, EOU, EF: 77 

ioo Шаға KÉ 
jil пята БАБ, Е 












Nr 
і 
š 


Ном усы can trey differant speeds and colours by PUR EN 
values into БУР and E£Zb7- Û EF is the speed control and 
is prezet at 10 giving a flash time in millisecondes af 
zOsdz*hé/i0) or about half a second in each colour; = ЖӘЕ? 
is the logical difference betusen the colour codes 9. 

Tie difference should not exceed 15 or it will destroy the 


&areen formal 






LMPURITANI NOTE: flashing af a rate of between 7 and 10 
cycles per second сап be unpleasant and even dangerous! во 


avoid values far SPEEQ which are greater than SO or sa. 
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SOFTWARE PRINTER-SPOOLER 


Peter Lelie, 19-Oct-87 
D-46047 Dormagen-Zons 
Wilhelm Busch Strasse 36 
Tel.: (021085) 45852 


А-а 


The printer spocler consists of three parts: 


1. Entry point ENTER 
Called via DOUTE (:02DD). If vou want text to 
be printed, FOKE 8121.2 . From now on all the 
PRINTed stuff will be entered into the printer 
buffer (inside RAM}. If the buffer is filled, 
program waits for buffer to become free. 
switch off the entering af output into the 
fer, just POKE 4151,11 . 


Dut 


тою 


Ë E la RST? every 20 msec. As the printer 
i ваду and there are characters inside the 
buffer area, they will be printed, one after 
another. After a character has been printed, 
the used bufferspace will be freed for further 
use by ENTER. SPOOL tates attention on the 
TERMINAL READY” -signal from the printer. 


isiti 


= 
f 


“рата 
3. Entry point INIT 

To be called from BASIC (only one time) to 
instali the spooler. BEFORE loading a BASIC 
program, do а CALLM #500 to init the spooler 
and to adjust the heap pointer and a NEW is 
generated. After the first INIT, nothing bad 
will happen if vou do another CALLM #300, 

as this will only execute a RETurn instruction. 


DECLARATIONS 

SUD EQU :Со 37400 Ed 
EUFSIZ EGU :800 buffer size (2k) 
DOUTC EQU :02рр ‚output vector 
HEAP Eau :529B sheap ptr loc. 
JUMF ЕВО {Єз code for JMF 
FRISH EGU #01351 sprinter switch 
RETUR ЕШ :С9 scode for RET 
RST? EGU 20070 svector addr. 
x 
* DAI hardware related declarations 
BRREG EQU :FF05 sBaudrate req. 
DTR Eau :FDOO data term ғау 
V24DA EGU FFFS ‚ser. data 
VZ245T EQU ıFFF3 ser. status 
x 
X DAI ROM entrypoints: 
CHPDH EGU : DE14 scompare DE, HL 
GPSYS EQU : DIA? rest of R5T7 
FMSG EGU : DADA sprint message 
RNEW EQU : DEBS ‚Basic NEW 
X 
Ж Literals 
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065 CR EGU 200 scar ret 
067 FF EQU оС stormferd 
088 LF ЕВО : 08 siinefeed 
089 x 
070 x 
07) ORG 20300 
O72 0500 0537403 INIT JMP SETUP ;RET after init 
075 £ 
074 % ENTRY POINT VIA КӨТ? 
07 ї 
07& 0503 DS SPOOL PUSH В ; SAVE REG’S 
077 0304 ES FUSH H 
078 0305 FS FUSH FSW 
079 x 
080 * avoid output to screen and printer: 
081 * 
082 0306 215101 LXI H,FRISW zif = 0 
O83 0509 7E МОУ OAM ‚then 
084 ОЗОА FEOO CPI 00 make 
085 90506 021003 JNZ OF ; PRISW-1 
086 ОЗОР 34 INR М з 
087 x 
099 k is R5232 ready for output” 
087 3 
090 0310 3660FD ОЕ. LDA DIR ¿term ready? 
071 0515 E&08 ANI :08 : 
092 0315 САЗЕОЗ 22 НЕТЕМ s 
073 0318 SAF3FF LDA у2457 UART ready? 
094 ӨЗІВ E510 ANI 210 : 
035 0510 САЗЕОЗ JZ RETRN ; 
096 + | 
097 $ ready for output: 
998 * do we have any output? 
099 x 
100 0520 247805 LHLD FTR2 H 
151 0323 EB XCHG H 
102 0324 CD5003 CALL COMPAR sis РТВІСОРТК2? 
103 0527 CAZEOS Чі RETRN ;RET if not 
104 0324 7E MOV A.M get char 
105 O3ZE S2F5FF STA V24D4 sprint it 
106 O32E FEOL CPI ER scarriage return 7 
107 0330 C3303 JNZ NOCR по 
198 0333 3604 MVT M.LF sreplace CR into LF 
‚ 109 03355 C33E03 JMF RETRN no change of pionters 
110 0338 CD5703 NOCR CALL ІНСЕТЕ move pointer 
111 0558 227603 SHLD РТВ: sand restore 
112 ОЗЗЕ Fi НЕТЕМ РОР FSW ‚restore reg’s 
113 USSF El РОР H š 
114 0540 Di POF D Й 
115 0341 C369D9 JMP DPSY5 ‚back to opsys 
116 # 
117 k The following routine is called via 
118 ¥ *DDLTC 
117 k Purpose: enter the received character 
120 * into printer buffer 
121 0344 DS ENTER PUSH D save req's 
22 0545 ЕЗ PUSH H : 
123 0344 FS FUSH PSW š 
124 ¥ 
125 0347 247803 LHLD FTR2 : 
126 034A 6057053 CALL INCPTR ; 
127 0540 EB XCHG ; 
128 O34E CD&003 LOOP CALL COMPAR stry to find 
129 0351 САЯЕӨЗ JZ LOOF ‚buffer space 
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0354 
9395 
0558 
0357 
0354 
035 
139 ОЗ5Е 
140 G35F 


ҹы С ЕЛ 4m C4 PQ ке c 


m ded мш dem ee қа ме rte 
Ld C Qd СА C4 CE C CH Loi 


к 
L 
cc 


146 0550 
147 0553 
148 0355 


152 0357 
55 0364 
154 O35D 


157 0370 
158 0373 
iS? 0374 
150 0375 


154 0376 
165 0378 


167 037A 
188 0879 
189 OB7A 


177 0378 
178 037B 
179 037C 
180 037E 


181 0381 2 
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F1 
287803 
du 
EB 
227803 
Ei 
Di 
US 


287503 
CD14DE 
t9 


117908 
CD14DE 


С27403 


217403 
е? 


= 
< 


СУ 


9000 
0090 


00 
об 


182 0384 22 


184 0587 
185 0589 


187 озас 
188 038F 


189 0392 22 


191 0395 3 
192 0297 3 


195 
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x 
Ж buffer space available: 
$ пом put char into buffer: 


РОВ FSW 5 
LHLD FTR2 ; 
MOV М,А ‚stor in buff 
XCHG š 
SHLD  PTR2 ıstor new PTR2 
Für H srestore reg^s 
РОР В E | 
ВЕТ ;to sender! 

x 

£ SUBROUTINES 

x 

* compare values in HL and DE 

x 

COMPAR LHLD РТА! :get ist ptr 
CALL CMFDH ;comp DE, HL 
RET H 


3 
* move PTR in HL to next position 
x 


ІМЕРТЕ LXI D,BUFEND get end of buff 
CALL CMPDH зсотраге 
JNZ NXT 30K if not end 

£ reached end of buffer: 

* goto start of buffer 


LXI H, BUFFER PTR = BUFFER 
RET 3 

NXT INX H ;FTR = nest pos. 
RET E 

i 

* Buffer area following: 

x 

PIRI DBL 10000 

FTR2 DBL : 0600 

* 


BUFFER RES | BUFSIZ-1 

BUFEND DATA :00 

FINI NOP 

Ж 

X the following code is located inside 
$ the printer buffer. Äfter INIT it 

$ will be overwritten! 


ORG BUFFER 


X 
SETUP | PUSH H 


‚save reg's 
PUSH PSW й 
MVI û, JUMP ‚set up DOUTE 
STA DGUTC A 
LXI H, ENTER з 
SHLD DOUTC+I с 
x 
MYVI À, RETUR skill entrypoint 
STA INIT ; 
* 
LXI H, BUFFER sini РТК! & FTRZ 
SHLD РТ! H 
SHLD FTR2 i 
x 
MVI A, BAUD init baudrate 
STA  BRREG 3 
x 
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194 0394 SEQ MYI 4,1 printer off 
195 039C 323101 ста  FRISW š 
195 x 
197 OS9F Z217A50B LXI H,FINI set heap ptr 
I 198 O3A2 229B02 SHLD HEAP : 
| 199 03945 CDBSDE CALL RNEW ағып NEM 
200 1 
201 ОЗАВ 218705 LXI H,TXT$ sprint msg 
202 ОЗАВ CDD4DA ГАШ. FMSG š 
203 y 
| 204 ОЗАЕ 210505 LXI H, SPOOL ;init RST? 
205 ОЗВ 227000 SHLD RST? 3 
206 x 
207 0354 Fi РОР PSH š 
| 208 0585 Ei FOF H Н 
| 209 ОЗВё CF RET š 
219 * 
211 + 
212 0587 OL TXTE DATA FF 
215 0588 507289 ASC “Printer spooler ' 
214 O3CB8 898Е89 ASC 'initialized." 
215 05р4 ODOD DATA CR,CR 
216 O3D6 507269 ASC "Printer ОМ : PORE 4151,37 
217 ОЗБЕ ОР DATA CR 
218 ОЗЕР 202020 ASC У OFF: PORE #131,1° 
219 0407 000000 DATA СЕ, СК, 0 
220 * 
22 LENGTH EDU FINI-SPUOL 
222 040A END 


|2 9299959 УЖЕ 
SYMBOL TABLESM 
ЗУ I ЖЖ 


BAUD GOCO BRREG FFOS BUFEND 0877 BUFFER ОЗ7А 













; BUFSIZ 0800 CMPDH DE14 COMPAR 0350 CR O00D 
4 DOUTC  O2DD DIR FDO ENTER 0344 FF 900€ 
FINI ОВ?А HEAP 0296 iNCPTR 0557 INIT 9500 
JUMP 0053 LENGTH 0877 ЕЕ OA LOUP 934€ 
HOCR 933 МХТ озу ОЕ 0310 OFSYS D9ñ? 


_ PMSG рара PRISW 0131 РТВІ 6375 FIRS 0578 

. БЕТЕМ ӨЗЗЕ RETUR 0007 БЕНЕН DEBS RST7 90070 

SETUP 037 SPOUL 0303 TATE 0357 узара FFFS 
V2451  FFF3 


TE KOOP - FOR SALE 


EPSON MX-80 + graftrax : F. Couwberghs Broekdonkstr 13 
3980 Tessenderlo (B) 013/666340 


WANTED 







2nd hand DCR with Eprom board and tape operating system 
write to : Paolo Siccardo Via Brignoni 5/15 17100 SAVONA ITALY 
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EAD/WRITE IN UTILITY 
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program identification 


title ° LARGE TEXT (PRINTER-POSTER) 


author T. GROENEVELD 


enerates jumbo int-out 
рок рова ces IE === sz= 2 


comment control-characters are for EPSON-printers 
i ee S an LS 1 ENT oy 





1 REM CHANGE LINE SPACING ON EPSON : ?CHR$(27); "A"; CHR# (9) 

2 MODE O:CLEAR 5SQ000:COLDRT 15 0 9 O:POKE #131,1 

5 PRINT СНА$ (123 SPRINT 

6 PRINT " ЭННИННННННННННННИНННННННННЕ" 

7 PRINT " # LARGE TEXT #" 

B FRINT " # ========== #" 

9 PRINT " ЭННИНИННННННННННННННННННННЕ" : PRINT 

10 INPUT " Hoeveel karakters vertikaal........ "SXZ:PRINT : PRINT 
20 INPUT " Hoeveel karakters horizontaal...... "iYX:PRINT :PRINT 
21 INPUT " Wilt и tabulator gebruiken (J/N)... "iLS$:PRINT :PRINT 
22 DiX-O.O0: IF Lé="J" THEN БІХ-1.0 

23 PRINT " Met welke tekst dienen karakters opgebouwd" 

2 INFUT " te worden......... rU "sM$:PRINT :PRINT 
29 INPUT " Wat zijn de gewenste karakters..... ";АФ:РАТМТ :PRINT 
30 IF M$-"" OR A$-"" THEN 5 

25 INPUT " STEL PAPIER IN EN BEEF RETURN"; О$:РАТМТ :РОКЕ #131,0 


40 AZ=BSC (LEFTS (AS, 1)) 
3 DIM SX(10. 0), JX (10. O0) ,FX(10.0) 
70 FOR ТХ-0.0 TO LEN{A$)-1.0 
30 F$=MID$ (A$, ТА, 1) 
70 FOR DZ=1.0 TO 50.0 
74 READ 5$,5%(1.0),5%(2.0),5%13.07,5%14.0),5%(5.0) ,5%(6.0) , 82 (7.0) 
98 IF P$-" " THEN 812 
100 IF F$=5$ THEN 200 
120 NEXT QX 
200 RESTORE 
“201 X$-H$ 
205 FOR UZ-1.0 TO 7.0 
210 FOR KZ-8.0 TO 0.0 STEP -1.0 
30 IF INT(2.0^K4*0. S) CINT(SZ(U02)) THEN 270 
23 REM PRINT INT(2.0^E), INT(S(ODO,U 
240  JX(9.0-EX)-0.0 
250 БОТО 280 
270 | JZ(9.0-K4)-1.0: SZ (UZ) -SZ (U4) -INT (2. 0^K20. 5) 
272 IF INT(SZ(UZ))=1.0 THEN 815 
280 | NEXT KA 
445 FOR T1Z-1.0 ТО XX 
447 PRINT TAB((A55.0-4. 593 YX) XG1X/ (LEN(X$) ) 41.0); 
450 FOR BX-1.0 TO FZ(Z) 
460 IF INT(JZ(BZ))=0.0 THEN 500 
465 БОК IX-1.0 ТО YZ:PRINT X$;:NEXT IX 
470 БОТО 600 
00 FOR IZz1.0 TO YZ 
510 FOR 11%=1.0 ТО LEN(X$) 
32 PRINT " "3:NEXT 117 
550 NEXT ЇХ 
500 NEXT BZ 
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620 
630 
700 
750 
800 
806 
810 
812 
813 
815 
897 
900 
901 
902 
703 
904 
905 
906 
907 
908 
909 
910 
911 
912 
915 
914 
915 


951 
952 
33 
934 
935 
936 
937 
938 
939 
940 
1000 
1010 
1020 
1030 
1040 
1050 


FRINT 


NEXT Tix 

NEXT UA 

FOR HZ-1.0 ТО 2.0%Х7:РКІМТ :NEXT HA 
NEXT TX 

REM FOR N-1.0 TO 5.0:РКІМТ :NEXT М 
FOKE #131,1:60TO 5 

FOR NZ=110 TO 7.0*XZ:PRINT :МЕХТ NZ 
GOTO 800 

FZ(UZ)=?9.0-KZ:6DTO 445 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ВАТА 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
GOTO 


n *.0,0,0,0,0,0,0 

"A" 505, 37, 35, 34, 55,357,505 

«Би, 125, 131, 258, 258, 290, 163, 101 
"E", 512, 274, 274, 274, 274, 258, 258 
"Т",2,2,2,512,2,2,2 

"М", 256,257, 129,65, 129, 257, 256 
"L" 512, 257, 257, 257, 257, 257,257 
"S". 69, 139, 274, 274, 274, 163,69 
"0", 125, 131,258, 258, 258, 131, 125 
"N",512,7,9,17,33,193, 512 

"Еч 512,19, 18, 18, 18,2,2 

"K" 512,17,17, 41,49, 131, 258 

"Be 512,274, 274, 274, 274, 274, 239 
"D. 512, 258, 258, 258, 258, 131,125 
"HY 512, 17,17, 17,17,17,512 

"М", 512,7,13,25,13,7,512 

"тз 5,3,2,354, 18,11, 5 

"U", 128, 129,257,257,257, 129, 128 
"R" 512, 18, 18, 50,82, 144, 271 
"ри, 512, 18, 18, 18,18, 18, 15 

"О", 125, 131,258, 258, 322, 131,381 
"Y".8,9,17,481,17,9,8 

"V". 64, 55, 129, 257, 129,55, 64 

"X" 388, 69,41,17,41,69,588 

"7", 385,322, 290, 274, 244, 262, 260 
"1", 258, 258, 258,512, 258, 258, 258 
"D". 125, 121,258, 258, 258, 131,49 
"J", 65, 129, 257, 257, 257, 129, 128 
"1" 0,0, 261, 259, 512, 257, 257 

"2" 261,387, 322, 290, 274, 267, 241 
"$", 69,41,17,512,17,41,69 

"3" 66, 130, 258, 274,266, 150, 100 
"4", 33,49,41,37, 35,512, 33 

"5". 160,274,274,274,274,274,226 
"6", 194,291,292,297, 305, 289, 193 
"7".258, 130, 55,34,18, 10,8 

"В", 69,171,274, 274, 274, 171,49 
"9" 263, 138, 74,42, 26,10,7 

"=" 41,41,41,41,41,41,41 

"in 1,1,1,384,1,1,1 

"0", 57,69, 151,258, 131,69, 52 
".",1,1, 129, 449,129,1,1 


5 


REM МЕТ DEZE LARGE TEXT KUNT U TEKSTEN NAAR GEWENSTE GROOTTE МАКЕМ. 


REM VOORBEELD 1 15: 


hor-4 vert=5 ТАВ=М tekst=X 


kar-DAI 


REM VOORBEELD 2 IS: hor-2  vert-4 TAB-N  tekst-DAI kar=HALLO 


REM m.b.v TAB BEGINT DE PRINTER TAB(40) VERDER 


END 
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BASICODE II 


HET BASICODE MACHINETAAL PROGRAMMA 


MET DIT PROGRAMMA IS HET MOGELIJK PROGRAMMA'S MET ANDERE 
COMPUTERS UIT TE WISSELEN IN BASICODE FORMAAT. 

HET PROGRAMMA WORDT GELADEN DOOR ACHTEREENVOLGENS IN TE 
TOETSEN :’UT’,’R’ EN RETURN. NA HET LADEN TOETST U "8" DAN 
18 DE COMPUTER TERUG IN DE BASIC MODE. 

HET PROGRAMMA WORDT GESTART DOOR CALLM #300. 

DAN IS ER KEUS UIT 7 MDGELIJKHEDEN: 


i HET LADEN VAN EEN BASICODE PROGRAMMA: HIERBIJ WORDT 

AUTOMATISCH HET MID$-STATEMENT GECORRIGEERD {DEZE IS BIJ 

DE DAI AFWIJKEND VAN ANDERE COMPUTERS). 

WEGSCHRIJVEN VANAF REGEL 1000 VAN НЕТ AANWEZIGE PROGRAMMA. 

OOK HIER WORDT HET MID$-STATEMENT GECORRIGEERD; BOVENDIEN 

WORDEN DE SPATIES TUSSEN REGELNUMMER EN REGEL ONDERDRUKT. 

HET LADEN VAN EEN BASICODE FROGRAMMA (ZONDER CORRECTIE). 

WEGSCHRIJVEN VAN HET BASIC PROGRAMMA (ZDNDER CORRECTIE). 

WISSEN VAN HET AANWEZIGE BASIC PROGRAMMA EN HET 

(OPNIEUW) INVOEREN VAN DE BASICODE SUBROUTINES. 

& HET MERGEN VAN DE BASICODE SUBROUTINES MET HET AANWEZIGE 
PROGRAMME. 

7 НЕТ STARTEN VAN HET (NIEUWE) BASICODE PROGRAMMA. 


ы 


Cn > C 


VOOR HET LADEN VAN EEN BASICODE РКОБКАММА, WORDT НЕТ 
AANWEZIGE PROGRAMMA NAAR DE EDITBUFFER GESTUURD (DIT DUURT 
ENIGE TIJD). ALS DIT KLAAR IS VERSCHIJNT DE MEDEDELING 
"TYPE SPACE’. DAN START U DE RECORDER EN DRUKT U OP DE 
SPATIEBALK ALS U DE FLUITTOON (= LEADER) HOORT. 

DE REST GEBEURT AUTOMATISCH. 

ALS HET PROGRAMMA GELADEN IS VERSCHIJNT EEN VAN DE VOLGENDE 
MEDEDEL INGEN: 

1 DATA DROPOUT ERROR (BIJ EEN DROPOUT ОР DE BAND). 

2 CHECKSUM ERROR (STORING OF DE BAND). 

3 ND ТАРЕ ERROR (GEEN BANDFOUT). 

ОР DIT MOMENT WORDT DE EDITBUFFER GELEEGD,WAARNA HET 
PROGRAMMA GEREED VOOR GEBRUIK IS. MOGELIJK ZIJN ER ENKELE 
KLEINE FOUTJES BV SYNTAX ERROR, OVERFLOW ETC.DEZE ZIJN OP 
DE GEBRUIKELIJKE MANIER IN DE EDITMODE TE VERBETEREN. 


VOOR HET WEGSCHRIJVEN VAN HET FROGRAMMA,WORDT DIT 
VERFLAATST NAAR EEN BUFFER. DIT DUURT ENIGE TIJD 
(AFHANKELIJKE VAN DE LENGTE VAN HET PROBRAMMA),WAARNA DE 
MEDEDELING "SET RECORD, START TAPE TYPE SPACE’ VERSCHIJINT. 
NU DRUKT U OP DE SPATIEBALK,WAARNA DE BASICODE UIT DE 
COMPUTER (CASSETTE INTERFACE) KOMT. 
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BASICODE II 


THE BASICODE MACHINE LANGUAGE PROGRAM. 


WITH THIS PROGRAM IT IS POSSIBLE TO EXCHANGE PROGRAMS WITH 
OTHER COMPUTERS. 

THIS PROGRAM CAN BE LOADED BY KEYING (FROM BASIC): 
"UT’,’R’ AND RETURN . WHEN THIS 15 DONE ТҮРЕ "B^ 

THE COMPUTER IS THEN BACK IN BASIC MODE. 

THIS TRANSLATION PROGRAM IS STARTED BY CALLM #508. 

THERE IS THEN A CHOICE OF 7 POSSIBILITIES: 


1 LOADING A BASICODE PROGRAM FROM ТАРЕ: НЕКЕ, THE MID$- 

STATEMENT WILL BE AUTOMATICALLY CORRECTED (THIS 

STATEMENT IS DIFFERENT FROM OTHER COMPUTERS). 

SAVING FROM LINE 1000 OF THE PRESENT BASICODE PROGRAM: 

ALSO HERE THE MID$-STATEMENT WILL BE CORRECTED; BESIDES, THE 

SPACES BETWEEN LINE NUMBER AND LINE WILL BE SUPPRESSED. 

3 LOADING OF THE BASICODE FROGRAM (WITHOUT ANY CORRECTION). 

4 SAVING OF THE TOTAL PROGRAM (WITHOUT ANY CORRECTION). 

S CANCELLING THE PRESENT PROGRAM AND (RE) STORING THE 
BASICODE SUBROUTINES. 

5 MERGING THE BASICUDE SUBROUTINES WITH THE PRESENT 
PROGRAM. 

7 STARTING THE (NEW) BASICODE PROGRAM. 


ы 


BEFORE LOADING А BASICODE РАОБВАМ, THE PRESENT PROGRAM 
WILL BE SENT TO THE EDIT BUFFER (THIS TAKES SOME TIME). 
WHEN THIS IS READY THE ANNOUNCEMENT ° TYPE SPACE’ APPEARS. 
THEN YOU CAN START THE RECORDER AND TYPE SPACE WHEN THE 
LEADER IS HEARD. THE REST TAKES PLACE AUTOMATICALLY. 
WHEN THIS ALL IS DONE AND LOADED THE FOLLOWING ANNOUNCE- 
MENTS CAN AFFEAR: 
1 DATA DROPOUT ERROR (IF THERE IS A DROPOUT ON TAPE). 
2 CHECKSUM ERROR (FAILURE ON TAPE). 

` 3 NO TAPE ERROR (IF EVERYTHING ON TAPE IS DK). 
AT THIS MOMENT THE EDITBUFFER WILL BE EMPTIED AND AFTER 
THIS THE PROGRAM IS READY FOR USE. THERE ARE POSSIBLY 
A FEW SMALL ERRORS SUCH AS E.G. SYNTAX ERROR ,OVERFLOW ETC. 
THESE WILL BE CORRECTABLE AS USUAL IN THE EDITMODE. 


BEFORE SAVING THE PROGRAM, IT WILL BE MOVED INTO A BUFFER. 
THIS ALSO TAKES SOME TIME (DEPENDING ON THE LENGTH OF 
PROGRAM), WHEREAFTER THE ANNOUNCEMENT *SET RECORD „START 

: TAPE AND TYPE SPACE’ APPEARS. THE SPACE KEY SHOULD NOW BE 

1 PRESSED IN. THE BASICODE PROGRAM THEN COMES OUT OF THE 

| COMPUTER (CASSETTE INTERFACE). 
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РЕБЕ 91 


ваг 
BOS 
EL 
905 
BEE 
ma z 
eot 
009 
вів 
ali 
612 
eli 
914 
9815 
818 
al? 


235706 
12 DZFees 
215 076664 
$18 CDBBDE 
3 05 
05 
і Е = 
і ed 
4 F “ғ 
„ ved 
213303 


2 226102 


AF 


948 ¢ 


SAP iez 


вёс 9229 ТЕ 
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NEW BASICODE 














FORALL. 
CASST 
EASSF 
TIMER 
НОРАСЕ 
SRSTTS 
РЕТЕ 
FILLBU 
ALFA 
СОМРАЕ 
НЕЙ 
LIEDEU 
DELEDI 
INITED 
CURSOR 
EDBBGN 
EDBPTR 
EDEMAX 
INS 
ІМРМЕМ 
CHESUM 
ENDFL 
ВАЗТАВ 
ETFTR 


SFCFLG 
INFDRT 
ӘЗІРЕТ 


BASTRT 
READ 
READCO 
WRITE 


WFINAL 
HORSEW 
HORSER 
NERBAS 
PREBAS 


PUSH 
PUSH 
PUSH 
BI 
LXI 
HLD 
ХКА 
INF 


nn 
5 aid 


#0140 
DAE 
:DAAS 
:D54B 
DADA 
: DAFF 
a DE32 
: 5075 
:DEGZ 
:DE14 
: DEBS 
SEIUF 
:E228 
:Е2еС 
20075 
: @8А2 
: 00да 
20046 
2296 
:2ЕС 
PED 
: ШЕЕ 
s EF 
:2F1 
SPI 
RFA 
:2Р6 
IFB 
FA 
EFG 
AFD 
«ФЕР 
:Ерев 
:2086 
«лав 
SLOT 
R 

RECO 

іч 

WO 
BUFEND 
FRESUB 





TH. V. LIESHOUT, WOENUM, NL. 


FOF ALL REGISTERS AND RETURN 
START CASSETTE MOTORS 

STOF CASSETTE MOTORS 
PRECISION TIMER TIME IN L 


STRT TAFE, SET REC, TYPE SPACE 
PRINT А STRING 

FILL EDIT BUFFER 

TEST А-7 

COMPARE DE - HL 


LIST IN EDIT BUFFER 
MOVE EDIT BUFFER TO BASIC 


INIT EDITMODE 


STARTADDRESS EDITBUFFER 
(EDIT) INPUT POINTER 
END DF EDITEUFFER 


CASS. INF. MEMORY 
CHECESUM 


READ BASICODE 

READ W MID$ CORR 

WRITE BASICODE 

WRITE W MIDSRSPACE CORR 


HORSEW+LSPOINTER 
HORSER+1=FOINTER 
CANCEL WHOLE PROGRAM 
RESTORE BASIL FART 








Ж 


ж 


We 
R+ 





| 
БЕ 
Е 


UT, WOGNUM, NL 


i 





di 
x 





nm 


H 


PUL HE 





НОЕ 
HORS 


L 
i 
i 


TA 
ы 


iL 


T 
zi 


Hi т” 
ред елі терін 





РОР 
ВЕТ 


р 


218400 


өзде 








iN DAL 


UTINE 


T TIME {ON 37 


PROGRAM) WAIT FOR 


e 
[os 
H- 
о 
Les 
= 


т 








ПЕ 


B] 


FOR TIME. 


ART 


А 
Е 


AANGI 


r 
LU 


Le 


% 


DGE 
PORT 
R 
DAlnamic 83-18 - 191 


Е 


С 
Е 


TNO CHE 
АМ 
НЕ INPUT 


+ 


к + 
чт 
1 


I: 


TOO LONG ERRO 


WATT FOR 


ON 





v 


ч 
э< 


E 


AB 


+ 


ti. 








117 








145 9208 
144 BZD 
145 @3D8 
146 #500 


асо 


= 
uy 


Oo 8 m d ol 
£d i 
u 
= 


т 


t із СП cn CA cn cn 


ке 


кк ке ке а ра eh pot 


n Cr. 
3 


£4 F. 


сот 


к. 
пе 
a 
XA 


J 
oD 
cod o 4 
ев 
m c cm ona 


~J 
ie 
Ж 


A 
= 


а42 


175 6414 
174 0415 
175 0418 
175 @41E 
177 @41E 
178 9421 
179 06422 
8e 

8 

8 


pJ Fa. 

















1E78 
2EeD 
CDABDS 
10 
Ca1484 
7E 

Ag 
Е36385 
4E 
ib 
FEROS 
1EBA 
e5FF 


Diog 








mm. x m 
SZEDOZ 


214885 
ED32DE 


EBD 
Я 


ЗАЕТ Я 
9e 








215105 
CDAD 


SERD 
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ті 


BY 


p 


5 


ж 


„ӨШ 


i 





Е ТРЕ 


CLOHSM 


FALSE 


= 
T 


= 
i 


ың 


хе 


ШЕ {рр p< 


CI a £7 T 
Thom UE Со 
be ка BRA XL 


са 


га 
Th Fa 
r 
= 


са Ор La T» O [^ Ca Га [7 
T >< rn Z ОС 
ш 


E OT 
Жозе X 
= 


« 


ка Г 
m 











А Мм 
Pta il 


AITFL WAIT FOR CHANGING 
„M 

„378 

san 333352532225 


mo 
= 
тт 
ж 


RRÜR TOO 


Mir C3 Ci Cu X3 FA M 4 [7 m cy ШШ із 


TRTET TOO SHORT FOR START 

31865 

B,:FF 

SE 

ñ. E 

ор CARRY SET ;:BIT='1: 

А,В 
SHIFT 

B. Ë 

EIT CARRY SET = NO STA 
SHIFTER IN CARRY 


ENDFLE 
й 

STOTEX 
CHESUM 
B MODIFY CHECKSUM 


CHESUM 

A.B 

:7F 

ЮЖ ASCII 3 = END DF 

SETFLG 

DO CLEAR CHECCKSUM 

CLCHSM 

FILLRBU STORE CHARACTER IN 
{ UFFER ñ 








ENDFLG ЗЕТ ENDFLAG 
START 
CHESUM 
START 


УЕ 


TBIT 


RTEIT 


TEXT 


ND MODIFY 


H,MESERR MESSAGE "DATA DROPOUT ERRÜ 
FETE PRINT MESSAGE 


AU 
TECK SUM 


FT HEN 

K t 
ERR. DON 
FRINT MESSAGE 


ERROR? 


a a гт" 





к 


e 


[poke ge» pe ке ке ре ке ке ға ка de 


9 
97 BARE 
98 244Е 
gu G45] 
TU a 
eo 9454 
mai [AAU, 
201 8457 
8 


mp р £ 
$ m 


i 


5 


2 





- ir {Л cn Cn Cn 
Pao: P 





У‏ ل“ لت ل 
il‏ 


rry Ce da 


tu 


boo 
сі 


ri 


Cu Tr da 01 





M 
71 





із J> 4» 4 
mo o un 
f 


а 


is fs Ts 
Tn 





{э + 
Д> F> 
£0 Cn Ba то ГА 





ер 
+ 
is 
E 
T 


EF 








CD7604 
CD14DE 


DU ED 
Loan ER. 





CDZSEZ 


IT ATO 
Westin 1 





г 
EN 
1 
п ая 
mo СЯ 
E 
4 


2 m Oo стр Drm 
Ë 
š 


т 

Же 
t3 
E 
+ 


сарава 


СО 
Е 
Е 





C2E804 
SAF BGS 


un 
AM 


Aen 





С 
cI 
Ж 


тұ 
ка 
= 


X 
À 


WDRCZR 


* 


NCOMMA 


CEMSFG 


* 


= 
ak 
«5.51 


ЕЗ 
^s 
es 


LE 


HŽ om in 
жена lA ل‎ ea c 


= I 
r- 


granon CE DO m 
Е >< < Z 


„ he ^^ 
f” DT ва RS 


t3 
= 


са 
а 
ГУ 


г 
18 
кч 


û, a SF 
CURSOR 


co 
CASSF 


HORSER 
eae 
H, MIDE 
СТЕР FTR 
EDBFTR 
OLDFTR 





пгт 
WDRCZR 


SMI AD 
Lalit it PU 








Ж 
ri 
Әр 
Pal ег 
СЕМЕРО 
20 
т акт 
STORE 
"oA 
r, 
A D 
На Ë 
п c 
К 
haba A 
i icum 


H 


і 07 
m 


ei 


я г 
тот G 
Әде 

zm 


- 








° ~ CIN CURSOR 
STOF CASSETTE MOTORS 


INPUT POINTER 
STORE IN POINTER 


START OF EDITBUFFER 


š WORDRECOGNIZER 
END OF EDITBUFFER? 


Bei 
LAST BYTE IN BUFFER 
(MUST BE А * me") 
DELETE EDIT BUFFER 
FOP REGISTERS AND 






pe 


RETURN 


SUBROUTINE WORDF 
TO RECOGNIZE 
STATEMENT 

END OF ROW 
CHECK MID#FLAG (ІМ ROW} 
SPACE 

b FURTHER ACTION 
CeCHARACTER 


B=COUNTER 


:ECOGNIZER 
THE MIDE- 


5 COUNTS AND А COM 
FILL WITH "з it 
E.G. MID$ "АВС", IFN, 2 


мА MEANS 


MMA ~ STRINGFOINTER 


INCREMENT STRINGFOINTER 


гу» EB МІРФСАФ (9,5), М, 2 


+ 
З 
юз 
ui 


ROW 
*MIDS* 


ND MIDS STATEMENT OLE 
IN EDITBUFFERFGINTER 


DAInamic 85-16 - 19 





FOINT 









У 


г" 

Li 
ERREARI EER КЕЗЕККЕ 
x 
ЕЗ 





e 


1 
Ë 
e 


c = s Ж 
< C3 td ж 
Р : 


F 






zi 
M 
ut 
x 
Ў 


1 





са 
i 
hj ип 
=. Я 
zr іч 
са d m 
Ir = 2... эс реа PL. m Web Lo KE I> <£ Z= =a LI L IE 
r Lx Ж = ОТ» ЖІ => C Ie Sb ZE га O CC ДО CO I> <b O LJ 
E Е кз ия бо = x El Li es ғолы мо еҙ EDO E U Е m 





- 1. 
ш 5 25 б e 
Е = a tui m 








3 


"Yn? EST DS 


di 
к. 





= 


T 
ш) 
рой 


4 ӘДЕЗ 





im 
Er 
гч 


27 


anf 


F Fa pa ET м 
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% 
% 
x 
E 


| 
š 
Í 








311 9541 


223 8584 
524 0585 
325 65896 
326 2587 
227 2588 
ОВ 6559 
S29 2980 
B26 858. 
551 0590 


2 Ou 








A 

З 9994 
254 0597 
Ue пит 
EE Ed TT 
5 9996 


BSIF 


до 0507 
41 ЗАЗ 
42 OSRE 
4 


E 
wee 


feb ted 


244 азар 


B46 SAF 
347 GSBZ 
545 GSEZ 
249 DEA 
250 SES 


351 GSB6 





354 0559 
3595 eSBH 
556 GSBE 
297 6901 
358 8504 
259 #9506 
Зов 6509 


241 @5CC 


ата 7 
DOM эд 


GORA ` 






444154 


MEN BASICODE Т 


ec 


| осер 


545990 
14 
әгәр 


+ ACAFAL 
= 5D5D 


414744 


FS 
c5 
DS 
ES 
F3 


ЗАЗ 
- aL. 


abies 
ә 
2 
nr 
22462 


ا 

AF 
S2FFOZ 
SECS 
SSDDOZ 
ZIB2O2 
22рЕй2 





; 
ei 
FE 
SLEDGE 
SES 


m LAT 
СовБОТ 
LE 
РО 
ой 
TAE 
ра 


ES 
EJ 


LS1203 


FESD 

MILES 
CDOZDE 
004706 
FES 

CARERS 
ZAFDOZ 


oF 


| FC 
i й 


СЕ FERS 





з TAGGA 


i EE 


3646 вара 
587 057 
S46 әзре 
559 #509 
376 EDDC 
571 GSDE 


572 e5DF 


IA АГА”? 
SAP ABS 
Urs 
FE 


BE 
CAZFOS 
FA 
FEQS 


FA3206 


MESLDE 


ASC 


"BATA DROFDUT ERROR” 


VA LIESHOUT, WOGNUM, NL. 


DATA 


ATA 
ніні 


ASC 
BATA 
DATA 
ASC 
DATA 
ASC 


FUSH 
FUSH 
FUSH 
FUSH 
DI 
LHL D 
TAR 
SHLD 
SHLD 
ARG 
STA 
MVI 
STA 
LXI 
SHLD 
MVI 


ETA 
шіні 


ЕТ 
LXI 
MVI 


М м I 


УМЕ 

PUSH 
PUSH 
FUSH 
FUSH 


JME 


* SUBROUTINE 


* BETWEEN LINENUMBER AND 


SFERBS 


WNCOMA 


CPI 


:eD 
: OC, 0D 


“ТҮРЕ SPACE’ 


514 
ac, 2 @D 


"LOADING BASICODE* 


16D, зер 


"MIDEUCCCCCCQCQUOC 
525222522225 24 
% BASICODE WRITE FART + 
знанню вана 255552 


FSW 
B 


P TROUT 

ñ 
SFCFLG 
&, :С5 
:EDD 
H,SWRITE 
DEDE 
8,:02 
2131 


H, CHESUM 


А m 
Ê, 182 


HORSEW 


COLD START OF BASICODE 
WRITE ROUTINE 


END OF SYMBOL TABLE 


RESET SFACEFLAG 
#SET POINTER ТО 
# {WARM} START OF 
*WRITERDUTINE 

я 

GUTFUT SWITCH 


ALSO USED BY READROUTINE 
TART OF TEXT (@2) 

STH BIT MUST BE A '1' 
CHECKSUM INCLUSIVE 

END OF TEXT (22) 

FIRST TIME М0 PUSHING 


ТО ABSORB THE SPACES 


‚ер 
RSFLAG 
АШКА 
STFLAG 
128 
ABSORE 
TMFFTR 


CLRREG 


LINE 
RETURN 
RESET FLAG 
TEST А-2 
SET FLAG 
SPACE? 


L sCHARACTER 
H=STRINSCOUNTER 


E=CHARACTER 


INCREMENT COUNTER 
DeSTRINGCOUNTERC 


CLEAR COUNTER 


DAlnamic 85-16 - 195 


T 
373 


ASE 


FAGE G7 


274 
375 
376 
шу 
279 
ва 
281 
287 
383 
384 
385 
385 
587 
588 
ig 
390 
591 
ог 
295 
594 
295 
A96 
397 
298 
599 
406 
491 
487 
405 
464 
405 
AG 
497 
463 
485 
410 
411 
417 
413 
414 
415 
415 


oin 
417 


OSES 


ATE 


BIER 2 


ASEE 
В5ЕС 
ӘЗЕР 
ASFA 
eZEX 
eSsF5 
eSsFg 
BSF? 
AFC 
@SFD 


GSFE 


#5091 ` 


әзер 
ous 
BLAG 


8507 


e6085 
26869 
AAGE 
Boake 
9611 
#514 
BLIE 
2519 
BALE 
звів 
6626 
BOT 
8626 
#529 


9626 


7H 


NEW BASICODE 


FER? 
CASESS 
SFAOGI 
EE 
SZFDOZ 
7р 

CDF 4e5 
254001 
Fago 
47 
2SIEDGZÉ 
ñE 

77 


BAF AGS 


ссрза5 
217505 
AF RA 
ЖЕСС 
CDF465 
SEZ 
CDFARS 
ЗЕ 


DF&GZ 
2125600 
230585 
14 
қыт 
al 


943E СТЕ 


BAZE 1 


O62F 
6652 
9535 
0627 
база 
ств 
BEIC 


7 BOF 


0240 


7 0647 


6646 
8647 


2 8644 
S ВОДЕ 


SCHE 
o&64F 


‚ 9851 


84654 
0637 


? 0608 
o 9859 


GAIA 
6&5B 
BASE 
86460 


C3EN65 
217585 


1098 
C3EBOS 
F5 

АЕ 
З2ЕЕ@2 
Fi 

74 FE Ur 
aed FES 


J 
22FAG2 


с? 
ZZFFG2 
C9 
SAFFGZ 
E7 
SES 
Саарсі1 
CZFeeng 
FS 

cs 

DS 

ES 
217181 
5600 
ZIEDSZ 


i LA 


F 
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BUFEND 


TH. 


VLIES 


CALL 
УМЕ 
ORT 
мом 
LXI 
ХЕЙ 
MOV 
LHLD 
MOV 
INX 
SHLD 
MOV 
RET 
МОУ 
СЕТ 
УМЕ 
LXI 
SHLE 
ЕМІ 
CALL 
ММІ 
CALL 
MY I 
CALL 
LXI 
УМЕ 
INR 
INX 
J MF 


BCR 


FUSH 
PUSH 
FUSH 
FUSH 
LXI 
1 


кут 
CAL 


HOUT, WOGNUM, NL 


129 
DECRES 
STRFTR 


TMPPTR 
A.L 
SUB 
FOF ALL 
ide 
E, À 

H, CHESUM 
М 

M. 
ЕТКІМ 
М.В 

H 
PTRIN 
A.B 


AL 


в г 
з Шы 


ANCOMA 


H, 28626 
WNEOMA 


А 
ВЕСЕ б 
FSW 

Н, MIDS 
STRETR 


SPCFLG 


SFCFLG 
А 

B, 120 
FORALL 
FRESUE 
FSU 

E 

D 

H 

Н, 2:151 
М,:@@ 


H, CHESUM 


DECREMENT COUNTER 


RETURN 


SAVE CHARACTER IN B 

OLD CHECKSUM 

MODIFY 

STORE CHECKSUM 

INFLT POINTER 

STORE CHARACTER 

INCREMENT / 

MODIFY POINTER 

RESTORE CHARACTER IN ACCU 


= \ 
à 
(ei) 


H=STRINGCOUNTER (=00) 
L=CHARACTER (2В=° +") 


BUFFER END 


DUTFUT SWITCH 
BACH 


кч 
= 
= 
tri 


455 0662 45 MOV Б.М CHECKSUM 


PAGE 98 NEW BASICDDE TH.V.LIESHOUT, WOGNUM, NL. 


456 6864 СВЕ LHD ЕТЕП 
437 @667 TABI MVI Ma : 95 END OF ТЕАТ 


IN BUFFER 
438 0669 23 INX H INCREMENT A FOINTER 
439 ав 70 MOV ME CHECKSUM IN BUFFER 
440 OLLE 22F402 SHLD PTRIN 

441 @&&E CDFFDA CALL SRSTTS PRINT 


INT £ 
442 % ТАРЕ ТҮРЕ БРА 


GO 
445 8671 SCDE DEL :ODBSUC 
444 2672 CODADS CALL WEFACE WAIT FOR SPACEBAR/UR 
445 6575 CDZED4 CALL CASET START CASSETTE MOTORS 
446 6679 FX DI 





447 * THE TIMING 15 CALCULABLE : 

448 + FOR PROGRAM ІМ RAM : EVERY 5 

449 % FOR PROGRAM IN ROM : EXE 3 

aze x EXPLANATION : THE VIDEO 

451 x THE КАМ IN TURN: THAT М 

452 ж EXEPT WHEN SCREENSFO 

452 = 16 UFFERSIDE OF THE SCREEN | THE V 

454 % WOT USING THE RAM 

455 * 

455 * STATES TIME AFTER LAST FALLING 
азу % EDGE {us} 

438 ¥ # + ¥ # 


459 867A ДАЛО LDA задо 








440 баур Font ORI 0 281 

461 DAFF 32FCO2 STA FORMEM 

452 6582 1105FD LXI  D,OUTPRT 16 

452 0685 610018 LXI В,:1800 10 

464 * 

465 ж TIMER L=(268-T-42)77.5 

466 * 

457 6588 2EQC LEADER MVI L.: 7 “SE 
468 GABA CDFSGA CALL BITONE 17 527. 75% 
459 G58D GE DEX В © 

47% QABE 78 MOV А,В 5 

471 ABF В7 ОБА À 4 

472 9599 228886 JNZ LEADER 18 51 

473 0693 2EQE MVI — L.:8E 7 45 

474 6595 CDF506 CALL  BITONE 17 өз» >27 
475 0698 2AF&502 DATA | LHLD PTROUT 15 43 
476 669B DS PUSH D ii 54 
77 2590 6509 MVI В,:09 7 bi 
478 969E 7E MOV — &,M 7 &8 
479 ОАЕ 2Е87 MUI | 1,207 7 75 
486 6551 FS ВІТИ PUSH PSN 11 Bë 
481 @6A2 D41507 СМС BITZER 11/17 518 1095 
482 Заде DCFS66 CC BITONE 11/17 26 

485 9648 Fi РОР FSW 16 35 

484 0549 1F RAR 4 46 

485 Ф5АА 65 DER B 5 45 

486 б6АВ 2EO9 MUI 1,209 7 57 

487 G6AD С2А196 JNZ 0 ВІТИ 18 82 

488 ABO 2AF602 LHLD F TROUT 14 78 

489 6683 23 INX H 5 3 

490 д6ва 222682 SHLD F TROUT іё 99 

491 0687 ОВ DEX H s; 

492 0688 ES PUSH H 11 

493 9687 SENS MI | 1,203 7 

494 D&BB Ob NOP 4 

495 QABE CDFSO65 CALL BITONE 17 

496 GABF Ei РОР ^H 18 
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497 Golê 


FAGE 49 


498 
499 
geo 
301 
582 
S 
564 
Seo 
504 
597 
598 
549 
біз 
uii 


E 4 
Jic 


513 
514 
515 
515 
517 
518 
519 
520 
92 

922 


tUe 
Aa 


me 
al 


525 
528 
527 
228 
929 
Sid 
33 

552 
922 
534 
555 
сть 
zi 

558 
539 
540 
541 
542 
S43 
544 


545 


eati 
ВАСА 
#605 
BACH 
507 
BACA 
BACB 
BARE 
@é6CD 
“ACF 
9602 
вар 
верь 
зьро 
GADE 
AGDE 
ЗАТЕ 
BEER 


ЕВ 


NEW BASICODE TH.V.LIESHOUT, WOGNUM, NL 


СВЕДОГ 
7C 

BA 

7D 
LALES 
BE 

Di 

FŠ 
SEGA 
CDFSe6 
F1 
С29806 
eloooF 
ZERE 
CDFSe5 
eg 


86Е1 2E 


GSES 
ВЕС 
HAEG 
G6EE 
GGEE 
BSF 1 
BAFI 
Bars 
BAFE 


AFB 


GAFE 2 
e5Fn ; 


HAFF 
9702 
#705 
0704 
9796 
0709 
өуай 
d7 QE 
отер 
8718 
#711 
0712 
#715 
9714 
2715 
#715 
8717 
#718 
GF LE 
9711 
6720 
0722 
9724 
07295 
0727 
ВУЗА 
Q7ZE 
97260 
8720 
вто 


C2DBGÓ 
SEC 
S2DDe2 
210000 
AA DERE 
FE 
CB4DC1 
CDABDS 
ЗВЕСОГ 


12 


CD4EDS 
12 

aC 
2Е16 
CDABDS 
12 

р 
2Е16 
CD4EDS 
12 

eo 

eo 

ав 

C9 

eo 

eo 

ee 
CD4EDS 
ZEIA 
UCDAEDS 
AZaFCez 
іг 

2р 
2ЕЗ2 
CD4ED5 
12 

CF 

ES 
Zig80E 
ZZUBOI 
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FOPD 


TRAILR 


BI TONE 


EITZER 


SLOT 


хСно 


LHLD 
MOV 
CMF 
MOV 
JNZ 
СМР 
FOF 
FUSH 
MVI 
CALL 
POP 
JNZ 
LXI 
MVI 
CALL 
DEX 
MOV 
ОКА 
МУІ 
JNZ 
MVI 
STA 
LXI 
SHLD 
EI 
JMF 
CALL 
LDA 
STAX 
DCR 
MVI 
CALL 
STAX 
INR 
MVI 
CALL 
STAX 
DCR 
MVI 
CALL 
STAX 
МОР 
МОР 
МОР 
RET 
NDP 
МОР 
МОР 
CALL 
ММІ 
CALL 
LDA 
STAX 
DCR 
MVI 
CALL 
STAX 
RET 
FUSH 
LXI 
SHLD 


PTRIN 
A,H 

D 

A.L 
POPD 
E 


Та 
і 


FSW 
Laod 
BITONE 
FSW 
DATA 
B.:ereo 
La GE 
BITONE 
B 

A.B 

ñ 
Laßt 
TRAILR 
й, :С9 
:2рр 

H, 3 DOGO 
:ZDE 


FOFALL 
TIMER 
FORMEN 
р 

ñ 
Lal 
TIMER 
р 

ñ 
L,:16 
TIMER 
р 


ы 


а 


1,216 
ТІМЕК 


i 


TIMER 
ПАР :1А 
TIMER 
FÜRMEM 


H, : РЕВ 
: 298 


йз 


мочи = 
т 


41 





599 0735 El FOF H 


"AGE 16 NEW ВАЗІСОРЕ  TH.V.LIESHOUT, WOGNUM, NL 


368 0724 021895 JAF NERBAS 
561 8727 END END END 


RER 
ЖБҮМЕПІ TABLE # 
E E E E E EEE ECE EEE 





ABSORE @&54Е ALFA DEGZ BASIC 9555 BASTAR ӘСЕР 
BASTRT өзде BIT Вага BITONE BF BITSEC SAFA 
BITW ALAL BITZER 8715 БТРТЕ ВСІ BUFEND 65537 
BYTE PIDB CASSP 0445 CASS DAZE CHESUM S2ED 
CHEWRD #458 CEMSFG #458 CLOHSM 040E CLRB ^ @4DC 
CLRREG 6522 COMMA озар COMPAR DE14 COR радо 
COUNTI SICH COUNTS өзе COUNTS ezie CSTWRI #584 
CSUM BREI CURSOR #8875 DATA 6698 DERE вага 
DECREG @42E DELEDI EZ28 EDBBGM OAZ EDBHAX SB 
EDBFTR #844 ENCODE 8469 END 9737 ENDFLG GZEE 
P. ERROR 9414 FALSE 6427 КЕТЕП 9075 FIN 9466 
u GOOD вала HDRSER 0315 HÜRSEW Є212 INCREG 6627 
Е INIT GIFA INITED E2&Ü ІМРМЕМ @2EC INFORT Ер 
INRE заре INSW 9296 LAST BTE LEADER 06585 
LIEDEL ELSF MESERR МЕБЕН 0522 MESGD 8521 
MESLDE 06550 MESTYS ре 0975 MIDEFG @2F3 


© o 
i FE ee 





NCOMMA 9482 HEBAS 031 dd DEBS OLDFTR ezFü 
DUTFRT FDeS FOPALL Ci4D пер весь  БОРЕХРО 634D 
РОКМЕМ ӘЗЕС PREBAS 03516 RESUB GSFe FSTR DES 

ЕТКІМ @2F4 PTROUT @2Fé 8567 RÜ eX 
READ 0303 READCO 9585 STURN @EFD RSFLAG 9658 


SB 4569 SETIFLO 8405 
SFCFLG SRSTTS DAFF 
STFLAG € STORE 6454 
STRTBT ӨЗ SUB e53F 6 
ТМЕРТЕ 2 TRAILR 9508 u 9551 WAITFL 8382 
WEO NEID KLOMMA 2598 WDRÜZR 9470 WFINAL ё 
WNCOMA 9505 WRITCO zeg WRITE 2399 ИЗРАСЕ 
WSTORE SIEB ү BESS 


1 ә? SPCABS GSE? 
ART esas STARTS G3AT 
ТЕХ #41Е STRETR SAF 
WRITE ӨЗЕз TIMER 


іп Ur іліп DU 7D TE CX 
= — IT: 





19 КЕМ 

26 REM 

3 REM "ve NOTTE DI FUOCO IN MODE 1 ^9 
48 REM 

че MODE 1:DIM АХ (40.0) 

52 FOR I%=@ ТО 49:КЕАр AX:PÜKE (#2Р1+17) АХ: МЕХТ 

57 DOT RND(XMAX),1 RND (16. 0) 

69 CALLM #2F1 

79 BDTD 57 

100 DATA #05,#D5,#E5,#F5,#01,#D7,#BF,#11,#EF,#BF,#00 
110 DATA #20, #00, #00, 400,200, HOO, #00, £00, #00, #26, #18 
129 DATA #2E, #40, #0A, #12, #OB, 818, #20, #02, 409, #03, #25 
150 DATA #C2, #07, #03, 4F1, #E1,#D1, #01, #C? 
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COMMANDES DANS UN PROGRAMME 


#tSFL 91.0 PAGE 1 


баё H ЕЕ ЗЕ ЕЕ аю EEE ER EEE ERE EEE 
Ee Н Commandes dans un programme 
сода E instructions en commandes 
або | ач 
орав š Grace а ce petit programme, vous pourrez 


HAGE utiliser des Commandes dans un programme 


ород Н et vice-versa. 

аб E Par exemple : #100 RUN 10 

eon Mise en route : 

eoo 3 Changer les vecteurs et taper le programme (#AEO-#AFA) 
одоо s SI се n'est deja fait 

A009 $ £#FOKE #29C, 14 x*NEW? 

орой $ Taper #UT 

GaGa E “Vi CYEG-O@AE@ (spacetcurseur gauche) 

зоба H >B 

олде iMise hors service : 

sooo $ Taper #UT 

eoo 3 ЗІЗ 

eon E >R 

Bee | 

оодо ORG BAERH s Compatible 5,F.U 
HAEG El FOF H : $ HEK KEE E HK ¥ KE ¥ ¥ 
ЗВЕР F3 DI + ж Recopie de * 
MAES 224200 SHLD 43H ж С?ФЕ а C714 ж 
ОДЕВ FS PUSH FSW 5 * ж 
HAEA 3ECG MVI A осон } жк ЕЕЕ XXXI 
@AES Еі FDF H 3 ж Recopie de * 
OAE9 224100 SHLD 41H у ж C703 а C706 ж 
ФВЕС 47 MOV Н.А :* * 
@AED AF ХЕЙ а ЧЕЗ ЗЕ ЗЕЕ ЧЗ ЗЕ ЧЕЗ ЗЕЕ ЧЕ 
@AEE ЕЗ XTHL ; Data apres RST 1 
ОЛЕР Bé ORA H s Si = 6 : Codage 
eara ЄСЕЗОА CZ БАТАЯ ; 

G@AFS ЕЗ XTHL s Restore pile 

QAF4 AF АКА ñ ; Asa 

@AFS GECFOS JMF ЭСӘСЕН ` s Continue RST 

@АЕВ 16008 рата? MVI D әген s Masque de test 
GAFA C? ВЕТ í pour 

GAFE E COMMAND INVALID 
SAFE Н 

SAFE ` $ AEG El F3 22 45 û0 FS ЗЕ Ce El 22 41 бб 57 AF 
ОВЕН s AEE ES Ва CC F8 дА ES AF C3 СЕ Са lé бе C9 

SAFE Н 

SAFE ile test qui affiche le message d'erreur 

SAFE P COMMAND INVALID’ se trouve aux adresses 

SAFE ; E8353 ... de la banque 3 (Apres un Қ5ТІ DATA б) 
SAFE ‚Le test est fait comme suit : 

SAFE ORG OGEGSSH 

Бөзе 7E MOV A.M Dans ñ code de l'instruction 
ERTS EGDG ANI @CeH йт garde les deux derniers bits 
EGZB А2 ANA D Masque de test 
Eni? E18 МТА 19H 

ЕОЗЕ CAFEDS JZ @D9FSH ‚message d'erreur 
ЕӘЗЕ En imposant a D la valeur #09 avant d'executer 

КӨЕ ices instructions (En deviant le vecteur du ЕЗТІ) 
ESIE ile jump au message d'erreur ne pourra plus se faire. 
EABSE iLe resultat du ET n'etant jamais nul). 

EGZE END 


C Z ol ме е 
-DUF OUR — 
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CALLM 


La fonction CALLM du basic peut etre appelée de 

deux façon : 

1) CALEM nn 

2) CALLM nn,var 
Avec nn qui représente une adresse (éventuel lement dans une 
Variable) et var qui est le nom d’une variable 
Dans les deux cas cértains renseignements sont placés dans 
les registres avant d'exécuter le sous-programme en langage 
machine. Ces renseignements sont donnés dans les deux cas 
Gi-desous: 


1) САЕМ nn 
contient la valeur #FF 
contient l'adresse de l’instruction qui suit 
le CALLM 
contient l'adresse nn 


2) CALLM nn, var 
ЕЕ H 
contient une indication sur la nature de *уаг? 


soit : 404 - FPT (Virgule flottante) 
#14 INT (Entier) 
#22 STR (Chaine) 


Idem a 1) 
contient l'adresse de "var" soit: 
- Adresse de la variable si var est numérique 
- Adresse du pointeur de la variable (Vecteur) 
si var est une chaine 





Il est à remarquer que seul le contenu de BC est important 
pour le BASIC. Vos sous programmes peuvent alors s'ecrire 
plus simplement. 


Ex: CS - PUSH B 
хх з ...Pragramme... 
Сі - POB 
C9 - RET 


Cedric DUFOUR 


IMPINT 

io REM MONTAGNES 

12 REM РО. DEBROUWERE =, (2. DUFOUR 
14 MODE 6:COLORG 15 9 12 j1:Yi=101:Z1=130 

18 FOR J=1 ТО 55 


20 A! =END {6) -Z:B'ZRMD(A)-Z 
22 FOR 1=1 TO 6 
24 Х=Х+1 


26 Y=ñ!kI+Y1:IF УСІ THEN Узі 
28 Z=R!xI+Z1:IF Z£1 THEN 2-1 
30 DRAW X.Z X,Y 23:DRAW X,242 X.Z2 22 
32 DRAW X,Y X,0 21:DRAW X,Y42 X.Y 22 
54 NEXT:Yl1=Y:Z1=Z:NEXT 

58 I=GETC:WAIT TIME Z:IF 1=0 THEN 26 
58 END 


+ 
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*DNA 
іт. 
PAGE 81 


еді 
282 
903 
204 
925 
908 
907 
208 
209 
216 
911 


m t 
м“ 


віз 
914 
915 
216 
817 
918 
919 
929 
921 
аг 
625 
ага 
325 
925 
827 
828 
929 
ле 
951 
232 
955 
634 
036 
837 
238 
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INTEGERS 


ЖЕНЕ 


+ 


NTEGERS * 


RE EE EE EE EE EE EEE 


ж ж ж sk ж ж bk жож жож ok ж ak жок жож жож жож ж ж ж ok sk ж жож жож жож ж ж ж о жож ok SK жож жож жож жож k 


Dit machinetaalprogramma zorgt ervoor dat 
INTEGER-variabelen naar rechts geschikt 
worden. Dit in tegenstelling tot wat DAI 
personal computer doet. 
Het kan aangeroepen worden vanuit BASIC met 
CALLM#H306, VARIABLET. 
De integervariabele wordt uitgeprint in een 
formaat van & cijfers met ervoor een 
spatie voor de positieve en een minteken 
voor de negatieve integers. 
Dit kan gewijzigd worden vanuit BASIC met 
PORE #571, ABNTA. 
Hierbij is ААМТА minstens even groot als 
het aantal cijfers van het langste uit te 
printen getal. 
Als ААМТХ kleiner is dan het aantal cijfers 
van het langste getal dan wordt het  BASIC- 
programma onderbroken met vermelding : 
"FORMAT ERROR", 
Als VARIABLEX = ё dan worden er alleen 
spaties  ( aantal = AANTX + 1 } geprint. 
Dit kan eveneens gewijzigd worden vanuit 
BASIC met 
РОКЕ #379, #30 er worden een aantal 
spaties en een "ё" ge- 
geprint. 
POKE #379, #20 er worden enkel spaties 
geprint. 


With this machinelanguageprogramm the 
INTEBERvariables will be ordered to the 
right. 
From BASIC called with 

CALLM#2600, VARTABLE%. 
The maximum lenght of the integervariable 
is 8. This lenght can be changed from 
BASIC with 

PUKE #271,NUMBZ. 

NUMBZ >= lenght of longest integer- 

variable 

If HMUMBZ < the lenght of the variable then 
there will be a BREAK of the BASICprogram 
and an ERRGR report : "FORMAT ERROR". 
If WARIABLEX = 9 then only spaces will be 
printed. 
This can be changed by 

РОКЕ #37@,#3@ : print a "Ө" 

POKE #570, 820 : print spaces 











855 
956 


өзде 
9301 
2392 
9305 
9394 
0305 
өзен 
e3oB 


өзег 
e3oD 
0510 
0511 
9514 
9317 
8318 
өзір 
e31F 
0520 
632 

8522 
0323 


032 
8327 
6528 
932E 
9520 
338 
0333 
9336 
8558 
955В 
OISE 
8340 
9545 
9545 
9349 
es4ñ 


954С C 


O34F 
9350 
9553 
9554 
8555 
0358 
9359 
955А 
0598 
@35C 
9550 
B35F 


CS 
DS 
F5 
ЕУ 
er 
CD27C9 
217103 
36 


14 
SAF 10@ 
BA 
Па2593 
218005 


532303 
SAE499 
FE2D 

U23E93 
034993 
ЗЕ20 

CD95D6 


95 


+ 
NUL 
AANT 
* 


XIBC 
% 


PMSG 
DUTCPR 
KBRFL 


POUT 


NEW 


PSTART 


CONT 1 
CONT2 


PRLOOP 
RETURN 


ZERO 


NEW 
Н,М56% 
PMSG 

H, KBRFL 
M,:FF 
PSW 


CONTI 
CONT? 
A, 228 
OUTCPR 
Fi 
Н,:ЕФ 
BA 

si 
ZERO 
A,M 
OUTCPR 
H 

B 
FRLOCP 
PSW 

D 

B 


А,М 


aT 
а чо 


PRLOOF 


ж жж ж ж ж ж ж 


* 


ж 


ж ж ж ж ж 


ж 


#26=5PACE, #56=6 
Number of figures to 
printout 

Convert integer for 
OUTPUT 

Print a message 
OUTPUT character 
BREAK flag 


Convert integer variable 
for OUTPUT 


Number of digits to print 
in D 
+1 


If ВЕРЕ then print 
message "FORMAT ERROR? 
and BREAK BASICprogram 


Lenght of the integer in 
in #F1 


OUTPUT character 


Sign of the integer 
if #E4="-" then CONT 2 
if #E4=space then CONT 1 


OUTPUT character 
ASCII-string from #25 to 


"ES + (#F1) 


FRINT-Routine 
OUTPUT character 


If #Ғ1=1 and Integer-9 
then print "@" or space 
NUL=#30 or NUL=#29 
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17 9362 357903 LDA NUL 
118 6365 535995 JMF RETURN 
119 ORG : 380 
129 9388 Өр MSGS рата :@D * MESSAGE 
121 9581 464Р52 ASC "FORMAT ERROR’ 
122 05890 eo DATA Ө 
125 e38E END 


эк 


SYMBOL TABLESM 
EIN 


AANT 9371 CONTI 933 CONT2 6349  KBRFL 2204 
MSG 9588 NEW 98525 NUL 9376 ОШТЕРК 0695 
PMSG DAD4 POUT 9500 PRLOOP 935F PSTART 2333 
RETURN 6559 XIBC — C027 ZERO 955С 


PC UTILITY V3 
20309 38F 


#396 CS DS 
9510 ВА DA 23 
2320 Di C1 
2339 CS 23 
2340 CD 95 
2359 CD 95 
зай ЯҒ ӨЗ 
9376 FF FF 
2589 ер 44 


EDUCATIEVE SOFTWARE 


* Wij zoeken ervaren programmeurs - leerkrachten, die bereid zijn 
om bestaande programma’s ий ons pakket educatieve software 
naar de DAl-pc te converteren. 


* Wij onderzoeken ook graag uw didactische programma’s met het 
oog ор eventuele uitgave. 


Uitgeverij J. Van In, Grote Markt 39, 2500 Lier 
Tel. 03/480.55.11 vraag naar : Ludo Camps 
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16 PRINT СНН%і12):СІҒАН 1¢@:DIM A(18.0) :B-1 

15 PRINT CHR$(14):"PRINT OUT OF INTEGERVARIABLES” 

16 PRINT СНЕ C145) g——————————— asa ^ 

20 PRINT :PRINT " FORMAT = 5 figures" ь 

зе PRINT " If AZ=@ then print spaces":FRINT :БОТО 199 


40 PRINT " DAI DAInamic":PRINT " PRINT AX; CALLMIEZGO, AZ" RETURN 
36 FOR F=@ TO 5 
55 PRINT 


68 PRINT AtP},:REM DAI PRINT 

55 САЕМ #508, û (P} : REM PRINT WITH МІР 

70 МЕХТ Р 

75 RETURN 

8e POKE #131,1:PRINT TAB(3@); "Push any key to continue." i:PDRE H121,0: RETURN 
99 GC=GETC: IF GC=@ THEN 98: PRINT : PRINT ГНН%(12) 

2 RETURN 

100 FÜR P=8 TO 5 

192 AtPI=INTIRNDELBE. 0) * (10. 0^P11 

104 IF A(F)-0.0 THEN 192 

196 NEXT P 

119 FOR G-e TO 1 

12 FOR Р=0 TO S:A(P)-INT(A CP) (106. 0^0) 40. S) : NEXT P 
139 SOSUE 46 

149 GOSUB 56 

160 PRINT : PRINT "+-------- tS Я 

170 А(10.0)=0:РОК P=8 TO S:8(10.01=Añ(10.9)+A(P):NEXKXT Р 





185 БОСОВ 86 

185 POKE #371,8:REM CHANGE FORMATLENGHT : 8 figures 

187 GOSUB 90 

188 IF Q=6.@ THEN PRINT :LIST 186:PRINT 

189 NEXT © 

199 POKE #371,&:REM CHANGE FORMATLENGHT : 5 figures 

218 LIST 199 

215 PRINT :GOSUB де 

22 FOR P-é TO S:8(PI=B*P:B=B*IQ@;MEKT Р 

250 GOSUB SO: PRINT : PRINT 

240 LIST 258 

245 PRINT 

250 РОКЕ #378, #30:REM IF ЧАКТАР ЕХ 15 ZERO THEN PRINT: 6 
260 GOSUB 4@:FOR Р=@ TD S:FRINT : PRINT A(P),:CALLM 4300, (P) МЕХТ Р 
270 РОКЕ #570, #20:КЕМ IF VARIABLEZ ( AZIPX) ) IS ZERO THEN PRINT SPACES 
275 GOSUB бе 

280. GOSUB 99 

299 LIST 196:PRINT 

300 812545678 

385 LIST 318:PRINT 

318 PRINT A, :REM DAI PRINT 

Sil PRINT TAB(IS)3;"( Lenght of АХ = B figures )" 

312 PRINT 

315 LIST 32 

32 CALLM #398, A:REM PRINT WITH МІР 
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PRINT OUT OF INTEGERVARIABLES 


FORMAT = 6 figures 
If AZ=8 then print spaces 


DAI DAInamic 
PRINT ах; CALLMEZOGD, AZ 


s 5 
65 65 
451 451 
5511 aol 
69558 696536 
395732 393732 
%-------- %-------- 


99999909 471194 


186 РОКЕ #371,8:REM CHANGE FORMATLENGHT : 8 figures 


DAI DAInamic 
PRINT AX; CALLM#368, AZ 


500 зве 

598 4508 
45188 45198 
551190 551100 
6753904 6983884 
39573224 39573224 
%-------- %-------- 


2922222? 47119428 
198 POKE #371,6:REM CHANGE FORMATLENGHT : & figures 


DAI DñInamic 
PRINT АХ; CALLMHZSS, AZ 


e 

19 10 
28 208 
5386 5209 
49999 48986 
520666 566608 


296 POKE #370,#30:REM IF VARIABLEX IS ZERO THEN PRINT: © 


DAI DAInamic 
PRINT АХ; СА МЕЗО? AZ 


e e 
e 18 
200 288 
306006 3909 
42209 48000 
500000 300000 


199 PUKE #371,6:REM CHANGE FORMATLENGHT : & figures 
518 PRINT A,:REM DAI PRINT 

12345678 ( Lenght af АА = 8 forest. 
32 CALLM #390, А: КЕМ PRINT WITH МІР 


FORMAT ERROR 
BREAK IN LINE 520 
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Netzteil чл. Uberspannungsschutz 


Powersupply and Overvoltage-Protection. 
on ee 


Diese Schaltung und die Sicherung Fl verhindern im Falle 
eines  Netzteildefekts große Schäden im Rechner,die durch 
die ungeregelte Gleichspannung von 22 verursacht werden 
könnte. Ebenso, wird das bislang ungesicherte Netzteil vor 
überlastung geschützt. 

überschreitet die Versorgunsspannung mehr als i, FY ihres Normal- 
wertes, ründet der Thyristor und die Sicherung wird ausgelöst. 
Der Aufbau kann auf einer kleiner Veroplatine erfolgen.Diese. 
kann vor dem Elko C55 im Netzteilkäfig eingebaut werden. Durch 
zwei kleine Bohrungen werden die Zuleiungen für Masse und die 


Eingangsspannung 22 mit der Grundpiatine verbunden. Auf der 
Bestückungsseite umlauft eine breite Leiterbahn die Grund- 
Platine.Von dieser Leiterbahn kann +5V zur Schutrschaltung 


geführt werden.Durch diese Anschlüsse wird die Schutzolatine 
gleichzeitig an ihrem Platz fixiert, 

Die Sicherung wird neben dem Gleichrichter BRI eingebaut.Dazu 
werden 4 kleine Löcher für die Halterung gebohrt.Die U+ Leiter- 
bahn vom Gleichrichter BRi wird unterbrochen und die Sicherung 
(1.5 Amp.) dazwischen geschaltet. 





02.1985 
r.corswandt 








a +12۷ "ви 


Protect -Soard 


— 

«227 "ао 
реп 

әш 2. 
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SIMULATION OF GOTO X / RUN X ONLY 7 BYTE 


With the following program you can simulate GOTO X and it's also possible 
to do RUN {LINE NUMBER) in BASIC V1.8 without emptying the symbol table. 
To get the program into the computer type in the following hasicline: 
#14 DIM IMP (1) JMF CO) 28222244: IMP CL) =#4DC363DF: JUMP=VARPTR IMP (02251 
Now JUMP contains the address and JMP(S),JMP (1) the program. 
111 Be careful if you have a CLEAR after executing the basicline 
ЧМР), UMP (1) and JUMP are zero 11 


You can use my program in the following ways: 
1) as RUM X then type e.g. #X=196:CALLM JUMP, X 
2) as GOTO X then type e.g. #19 X=19%9 
#24 CALLM JUMP, X: КЕМ GOTO X 


Just van Dunne’ 


Here follows the machine language program and a basic example. 


23 INX H 
23 INX H 
44 MOV B,H 
aD мау C,L 
C3 43 DF JMP DF&3  (basiccmd. GOTO) 
END 
5 MODE 4 


із DIM IME (1): MF CO) #232344: IMP (1) EADCSADF: JUMPEVARPTR (JMP (92241 
28 H=GETC:IF Hila OR Н>25 GOTO 26: Xz(H-12)*10: CALLA JUMP, X 

38 IF QEYMAX THEN б=б+1 

25 GOTO 118 

4a IF 028 THEN 020-1 

45 GOTO 119 

ae IF Pee THEM P-F-1 

53 Бото 118 

ёй IF F{XMAX THEN F=F+1 j 

i amis GOTO X / RUN X 
76 IF QzYMAX-15 THEN D=D+15 

78 GOTO 119 

ge IF 0215 THEN Qzü-15 

as GOTO 119 

за IF P215 THEN F=F-15 

95 GOTO 119 

iae IF F{XMAX-15 THEM Р=Р+15 

119 DOT A.B @:DOT Р,О 185: А=Р: В=0: GOTO 20 





30 REM TEST DE REGLAGE DE LECTURE DE CASSETTE 
49 REM ALAIN MARIATTE 


50 REM MAGNETOPHONES RADIOLA, BELL&HOWELL, SANYO 


60 REM 
79 РЕМ 
80 REM 
90 REM 


100 DIM A(0.0) 
120 FOR I-1 TD 20 
138 I#*#=STR$*$(I):L !=LEN(I$):N$=LEFT$(I$,L!—-2):IF 210 THEN N$-" "Nf 


140 А%=" "+CHR$(137)+" "+N$+" "+"САЗЗЕТТЕ ADJUSTMENT TEST “+CHR# (136) 
159  SAVEA A ñ$ 


160 NEXT 
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-TRANSLATIONS-TRANSLATIONS-TRANSLATIONS-— 
ELLE ET р ET ET LT ET LT ET LT LT TT LT ET ы LT Ug od Oy ты ы LT LT TTL 


PROGRAMMING TECHNIQUES 
(from DAInamic 11, page 173) 





I am planning to provide a chapter in this journal about the problems and techniques of 
programming. The methads to be given will always be valid for the DAI and sometimes also for 
many other computers, The subjects offered arise from your suggestions and/or from weak 
spots in submitted programs, In this connexion I am thinking of such things as drawing circles 
quickly, avoiding conflicting colours, working with arrays, the speed and readability of 
programs, etc. For this first occasion my subject will be the construction of a list of finite but 
randomly dispersed numbers, The idea came from T, Groeneveld’s BINGO program (DAlnamic 10, 
page 136), I hope that Mr. Groeneveld, after reading this, will not imagine that people think he 
is a poor programmer, I certainly do not, particularly as he himself has found a solution. In his 
program an array is needed with the numbers from 1 to 75 inclusive, but the numbers must be 
stored in a random order, If you cannot make the program work properly try inputting it after an 
IMP INT command} that was not done originally as can be seen from the «ûs From the original 
program : 


CLEAR 10001 DIM Gi74,0) 

R=RNDE75,0)+1,0 

ENVELOPE 1 15,930; SOUND 1 1 15 0 FREG(RND(249,0)*31,0) 
NOISE 1 15 

FOR А=1,0 TO 75,0! IF О(АХОВ THEN NEXT А 

40 IF A<74.0 AND G(A)=R THEN 25 

50 IF Gil)=0.0 THEN G(D-R 

65 I=I+1,G;IF I=76,0 THEN 100 

70 GOTO 25 


Sm bo 


Da FQ [2 oe 


2 








Let us analyse these lines! 
In 25 we choose a suitable number 
26 and Z7 the waiting time is made pleasant 
30 checks that the number chosen has not previously been selected 
40 if so, we choose another 
30 if the number is not already in the table we put it there 
85 allocate the next number to the next location and check to see if we have them all yet 
70 if nat go back and choose the following one 


As you can see the program works all right, but very slowly. On my machine (with the maths chip) 
I recorded an average of 72 seconds, What can be done about it ? Firstly change the program a 
little: I started by removing the ‚Os, took the NOISE and ENVELOPE out of the loop and 
coloured the sound with R#4 which is much faster than another ВМО, I improved the time a 
little, the average now being 44 seconds. 





10 CLEAR 1000! DIM G{74,0) 
14 ENVELOPE 1 15,90 
17 NOISE 1 15 
25 R=RND(75)41 
+ 28 SOUND 1 1 15 0 FREQ(R#4+21) 
я 30 FOR A=1 TO 75: IF GIAXOR THEN NEXT А 
3 40 IF AC76 AND GCLA)-R THEN 25 
к 50 ТЕС)=0ТНЕМ G(D-R 
3 45 I=I+11IF I=74 THEN 100 
70 GOTO 25 
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ЛЫ еі р гы г LT TT LT LT ET LT LT LT LT LT LT LT LT LT LT ET LL ET ET LT TETE LT ET ET 


—TRANSLATIONS-TRANSLATIONS-TRANSLATIONS— 
PLTLTALT Bag TT LT ET ET ET ET ET LT LT LT LT ET LT ET LT ET LT ET LT LT ET LT ET TT LT ыты 


Back again to the rebuilding! Multiple statements can be combined on the same line. The test of 
А<7& seems to me superfluous. The end test is the thing that is giving BASIC a bad name 
(spaghetti code) with its inverted jump combined with a GOTO address, The average time is пом 
58 seconds, 


10 CLEAR 10001 DIM G(76) 

ié ENVELOPE 1 15,90! NOISE 1 15 

25 В=КМ0(75)+1: SOUND 1 1 15 0 FREQ(R#4+31) 
30 FOR А=1 TO 75: IF СХАХОН THEN NEXT A 
40 IF G(A)=R THEN 25; IF G(D-0 THEN GOR 
65 I-I-1! IF 1<76 GOTO 25 


Now only running the test, with the sound removed, brings the average to 48 seconds, but T find 
it better to wait 98 seconds with sound than 48 without, Later I saw that the loop only had to go 
to 1. We still have too long to wait and so must try another tack, 


The original program is sluggish because a random number has to be chosen and then checked to 
see if it has appeared before, It is better firstly to get the numbers we want and then to put 
them in a random place in the array, I have not worked this method aut because it would only be 
turning our problem around, In the first method there is the difficulty of obtaining a suitable 
number while in the suggested alternative there is the difficulty of abtaining a suitable 
location. The new method certainly would be quicker hecause of the simpler checking (only 
looking to see if the place is empty instead of checking all the numbers), If I were to make the 
array much larger, say 255, then it should be easier to find an empty place in it. Afterwards, 
when I have all the numbers 1 to 75 in this auxilliary array I only have to transfer them neatly 
one after the other into array 00, The time gained is vast, resulting in a period of 3.4 seconds. 


10 CLEAR 10000! DIM 0(75),5(255) 

30 FOR I=1 TO 75 

30 R-RNDGS56H IF S(R)K20 GOTO 301 S(R)-I? NEXT 
40 FOR 1=0 TO 255; IF S(DX20 THEN J2J 411 G(J)=S(T) 
50 NEXT 


But we have not finished yet, The method is best for an array with 75 elements, but less 
suitable as the quantity increases because it then becomes more difficult to find an empty 
place, Sometimes too the penalty of all that extra memory space is significant. If we do not mind 
the list not being truly random, then the following method may doi Place the numbers 1 to 75 
randomly into the array of 75 locations. If the location is already occupied, do not choose a new 
random place but take the next empty one, I have not worked out these possibilities because of 
the non-random features, Now the fastest method which still has a short program is: 


10 CLEAR 100003 DIM G{75) 
20 FORI-1 TO 75: G(D=I} NEXT 
30 FOR 1=1 TO 75: G(00-G(Di RZRNDUSH11 GGR); G(R)=G(01 NEXT 


We put the numbers 1 to 75 inclusive successively into the array and then exchange each number 
with another random element, We get a nice random list in a nice quick time! 2.4 seconds if we 
use GIO) as a parking place and even better, 2,36 seconds, when we use À, This latter is because 
the DAI has more difficulty in finding array variables, If anyone knows of а shorter or quicker 
method I would like to hear of it and will then certainly come back to the subject, 


Frank Н Druijff 
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DAI PERSONAL COMPUTER 999 DAI PERSONAL COMPUTER °°°DAI PERSONAL 
О zwart alle adressen in HEXvorm! 
1 blauw - 
2 d.rood 
PER 29B-29C start heap 131,0 output scrn+ 
d pass 29D-29E size heap RS232 
Ж ка 29F-2AD start text buffer 131,1 screen only 
Ede Ode 2A1-2A2 start symbol table 131,2 edit buffer 
7 er 2A3-2A4 end of symbol table 13552 read from 
8 я 2A5-2A6 bottom screen ram edit buffer 
grijs 
9 blauw 
авап ТЕ cursor symbol MODE XMAX УМАХ 
Ll rose 74 cursor mode 
12 1.blauu 72-73 cursor position 1/2 ud 22 
13 l.groen 3/4 159 129 
14 geel | 5/6 335 255 
15 wit 40,28 cass motor 1 ON 
40,18 cass motor 2 DN MERGE 
40,30 1 and 2 OFF OCLEAR XXX 
9, OAD"AN 
COLORG R1 R2 R3 Ва eEDIT BREAK/BREAK 
20 21 22 23 PLOAD"B" 
16 :R2*R1 R4*R3 ОРОКЕ 135,2 
17 :R1*R2 ЯЗВА 32K 7ХХХ 
18 :R3*R1 R4*R2 12K 2XXX IMP INT IMP FPT 
19 :R1*R35 R2*R4 BK 1XXX SIMP FPT 
әгі БАН XXXX 
о 
LIJN CTRL COLOR LIJN CTRL COLOR 2. 
23 BFEF BFEE 11 B9A7 BSA6 oPOKE 135,2 
22 BF69 BF68 10 8921 В920 ? 
21 BEE3 BEE2 g B89B B89A ETRL&COLOR BYTES IN A-MODE 
20 BESD BESC 8 B815 8814 MODE CTRL COLOR LIJN 
19 8007 BDD6 7 B78F ВУВЕ 14/2А ВАЕ? BAE6 3 
18 8051 BD50 6 B709 8708 ВАБ1 ВАБО 2 
17 BCCB BCCA 5 8683 B682 B9DB BSDA 1 
16 BC45 BC44 4 B5FD BSFC B955 B954 0 
15 BBBF BBBE 3 B577 B576 3A/4A ACD3 ACD2 3 
14 BB33 BB38 2 B4F1 B4FO AC4D AC4C 2 
13 BAB3 BAB2 1 B46B B46A АВГ? АВСБ 1 
12 BA2D BA2C 0 B3bES5 B3E4 AB41 AB40 0 
SA/6A 7557 7556 3 
FDDD b2 page signal FFOO ser.inp.buff 74D1 7400 2 
53 serial out rdy FF01 bD-5 keyb.inp. 744B 744A 1 
b4 right paddle b7 іп? DCE 73C5 73C4 0 
b5 left paddle FF02 Interr.reg. 
ЬБ random data FFO3 61 frame error 
b7 cass. input b2 overrun error 
FDD1 Trigger paddle b3 rec.buf.loaded FF039 TIMER D 
FDD4 = volume 4. 64 trans.buf.empty FFOA TIMER 1 
-( voiume сп. FFOB TIMER 2 
Foos D-3 volume eh, 102) FFO4 COMMAND REGISTER ones 
4-7 volume noise FFO5 BAUD RATE REGISTER 
FD06 Ый cass.out ЕЕОб ser.out buf. FFOD TIMER 4 
b1/2 paddle select FF07 keyb.output 8253 
b3 paddle enable FF08 interr.mask reg. CH 0 FCOO/FCO1 
b4 cass motor 1 CH 1 FCO2/FCO3 
b5 cass motor 2 TEST EVENT CH 2 FCO4/FCOS 


b6/7 ROM BANK SWITCH 


PEEK(ÉFDOO) ТАМО 32 
РЕЕК (657000) IAND 16 
РЕЕК (62000) IAND 48 


STATUS FCO6/FCO7 





